home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
wwais103
/
setup.frm
< prev
next >
Wrap
Text File
|
1995-05-08
|
2KB
|
72 lines
VERSION 2.00
Begin Form Form1
BackColor = &H00808080&
Caption = "Setup"
ClientHeight = 2490
ClientLeft = 2535
ClientTop = 2730
ClientWidth = 5475
Height = 2895
Left = 2475
LinkMode = 1 'Source
LinkTopic = "Form1"
ScaleHeight = 2490
ScaleWidth = 5475
Top = 2385
Width = 5595
Begin Frame Frame1
BackColor = &H00808080&
Height = 1815
Left = 600
TabIndex = 0
Top = 360
Width = 4215
Begin CommandButton Command2
Caption = "Cancel"
Height = 375
Left = 2400
TabIndex = 1
Top = 1320
Width = 1335
End
Begin CommandButton Command1
Caption = "Ok"
Height = 375
Left = 360
TabIndex = 4
Top = 1320
Width = 1215
End
Begin TextBox Text2
BackColor = &H00FFFFC0&
Height = 375
Left = 2400
TabIndex = 2
Top = 600
Width = 735
End
Begin Label Label1
BackColor = &H00808080&
Caption = "Max Docs to Retrieve"
Height = 375
Left = 240
TabIndex = 3
Top = 600
Width = 2055
End
End
End
Sub Command1_Click ()
max_docs% = Val(Text2.text)
If max_docs% > 150 Then
max_docs% = 150
End If
i = set_maxdocs(max_docs%)
form1.Hide
End Sub
Sub Command2_Click ()
form1.Hide
End Sub